object Encryptform: TEncryptform Left = 840 Top = 327 BorderStyle = bsDialog Caption = 'Encrypt' ClientHeight = 257 ClientWidth = 417 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Topbevel: TBevel Left = 0 Top = 65 Width = 417 Height = 8 Align = alTop Shape = bsTopLine end object Inputbrowsebutton: TSpeedButton Left = 384 Top = 88 Width = 23 Height = 22 Hint = 'Browse.' Caption = '...' OnClick = InputbrowsebuttonClick end object Outputbrowsebutton: TSpeedButton Left = 384 Top = 136 Width = 23 Height = 22 Hint = 'Browse.' Caption = '...' OnClick = OutputbrowsebuttonClick end object Alglabel: TLabel Left = 8 Top = 168 Width = 46 Height = 13 Caption = 'Algorithm:' end object Bottombevel: TBevel Left = 8 Top = 216 Width = 401 Height = 9 Shape = bsTopLine end object Toppanel: TPanel Left = 0 Top = 0 Width = 417 Height = 65 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 0 object Captionlabel: TLabel Left = 8 Top = 8 Width = 91 Height = 13 Caption = 'Encrypt Archive' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Infolabel: TLabel Left = 16 Top = 24 Width = 396 Height = 26 Caption = 'Please specify a file that you want to encrypt in the upper fiel' + 'd, then specify a output file name. Select which algorithm you w' + 'ant to use and a password of your choice.' WordWrap = True end end object Inputedit: TLabeledEdit Left = 8 Top = 88 Width = 369 Height = 21 EditLabel.Width = 69 EditLabel.Height = 13 EditLabel.Caption = 'File to encrypt:' LabelPosition = lpAbove LabelSpacing = 3 ReadOnly = True TabOrder = 1 end object Outputedit: TLabeledEdit Left = 8 Top = 136 Width = 369 Height = 21 EditLabel.Width = 100 EditLabel.Height = 13 EditLabel.Caption = 'Encrypted file output:' LabelPosition = lpAbove LabelSpacing = 3 ReadOnly = True TabOrder = 2 end object Algcombobox: TComboBox Left = 8 Top = 184 Width = 145 Height = 21 Style = csDropDownList ItemHeight = 13 ItemIndex = 5 TabOrder = 3 Text = 'Rijndael (256-bit)' Items.Strings = ( 'Blowfish (128-bit)' 'DES (56-bit)' 'Triple DES (168-bit)' 'Rijndael (128-bit)' 'Rijndael (192-bit)' 'Rijndael (256-bit)') end object Cancelbutton: TButton Left = 336 Top = 224 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' TabOrder = 4 OnClick = CancelbuttonClick end object Encryptbutton: TButton Left = 256 Top = 224 Width = 75 Height = 25 Caption = 'Encrypt' Default = True TabOrder = 5 OnClick = EncryptbuttonClick end object Passedit: TLabeledEdit Left = 160 Top = 184 Width = 121 Height = 21 EditLabel.Width = 76 EditLabel.Height = 13 EditLabel.Caption = 'Enter password:' LabelPosition = lpAbove LabelSpacing = 3 PasswordChar = '*' TabOrder = 6 end object Pass2edit: TLabeledEdit Left = 288 Top = 184 Width = 121 Height = 21 EditLabel.Width = 85 EditLabel.Height = 13 EditLabel.Caption = 'Retype password:' LabelPosition = lpAbove LabelSpacing = 3 PasswordChar = '*' TabOrder = 7 end object Helpbutton: TButton Left = 8 Top = 224 Width = 75 Height = 25 Caption = 'Help' TabOrder = 8 OnClick = HelpbuttonClick end end